#!/usr/bin/perl -w

print "enter value of radius\n";
$rad = <STDIN>;
if ($rad > 0){
$diam = $rad*2*3.14;
print "diameter is $diam\n";
}
else {
print "value not valid, diameter=0\n";
}

